﻿Imports System.Data.OleDb
Public Class RSS
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        '    Dim sql As String = "SELECT [Title], [Author], [Costs] FROM [Project] ORDER BY [ID] DESC"
        '    Dim conn As OleDbConnection = New OleDbConnection(ConfigurationManager.ConnectionStrings("ArduinoPlaygroundConnectionString").ConnectionString)
        '    Dim cmd As OleDbCommand = New OleDbCommand(sql, conn)

        '    conn.Open()
        '    rpt_RSS.DataSource = cmd.ExecuteReader()
        '    conn.Close()

    End Sub


    'REPLACE VALUE TO MATCH FORMAT
    Protected Function XMLFormat(ByVal input As Object) As String
        Dim data As String = input.ToString
        data = data.Replace("&", "&amp")
        data = data.Replace("\", "&quot")
        data = data.Replace("'", "&apos")
        data = data.Replace("<", "&lt")
        data = data.Replace(">", "gt")
        Return data
    End Function


End Class